1 POKE53280,.:POKE53281,.:PRINTCHR$(14)CHR$(147)
2 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
3 PRINT"[221]                                      [221]";
4 PRINT"[221]     [196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217] - [196] [210] [213] [195] [203]    [221]";
5 PRINT"[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]";
6 PRINT"[221][129]   IN DREI [211]PALTEN UND [205]ICROSCHRIFT   [221]";
7 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
8 PRINT"          [196]RUCKER EINSCHALTEN!          ";
9 PRINTTAB(40)"[146][151][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164]";
10 PRINT"[152][146][181] [196]RUCKEN: [154][165][196][167][146][152] [182][182][182][182] [181][181][181][181][181] [194]EENDEN: [154][165][197][167][146][152] [182]";
11 PRINT"[151][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163]";
12 POKE198,0:
13 GETC$:IFC$=CHR$(68)THEN16
14 IFC$=CHR$(69)THENPRINT"[147]":END
15 GOTO13
16 DIMF$(152)
17 DIMM$(152)
18 PRINTCHR$(147)CHR$(154)CHR$(142)
19 OPEN9,8,0,"$"::GET#9,A$,B$::N0=0
20 GET#9,A$,B$:Z0=0:X$=""
21 IFST<>0THEN 29
22 GET#9,A$,B$
23 N$=CHR$(0)
24 M$=RIGHT$("      "+STR$(ASC(A$+N$)+ASC(B$+N$)*256),6)
25 GET#9,A$:IFA$=CHR$(34)THENZ0=SGN(Z0+1)
26 IFA$=""THENN0=N0+1:N1=N0-1:GOSUB30:GOTO20
27 IFZ0=1THENM$=M$+A$
28 GOTO25
29 CLOSE9:GOTO40
30 IFN0=1THEN38
31 IFLEN(M$)=6THEN39
32 AA$="":FORI=8TO24:C$=MID$(M$,I,1):IFC$=CHR$(34)THENI=24:GOTO34
33 AA$=AA$+C$
34 NEXT I:M$(N1)=LEFT$(AA$+"                  ",18)+LEFT$(M$,6)+"  "+ID$
35 H1$=MID$(M$(N1),22,3):H2$=LEFT$(M$(N1),16)
36 H$=H1$+" "+H2$+" "+MID$(M$,26,3):PRINT"       "H$:A=A+1:F$(A)=H$:PRINTCHR$(142)
37 RETURN
38 CC$=RIGHT$(M$,24):ID$=MID$(CC$,20,2):PRINT"       [221]";CC$:RETURN
39 PRINT:PRINT"    ";M$;" BLOECKE FREI.":CC$=CC$+M$+" BLOECKE FREI.  "+DA$:RETURN
40 OPEN4,4::PRINT#4:CMD4:PRINTCHR$(27)CHR$(15):PRINTCHR$(27)"S"CHR$(0);
41 PRINT#4,CHR$(27)"A"CHR$(5);">NAME: ";MID$(CC$,2,16);:
42 PRINT#4,"     NR. : ";ID$;:
43 PRINT#4,"      "MID$(CC$,28,16)
44 PRINT#4,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
45 PRINT#4,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
46 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=2THENA=A+3:GOTO48
47 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=1THENA=A+3:GOTO48
48 FORX=1TOINT(A/3)
49 PRINT#4," "F$(X);"   ";
50 PRINT#4,F$(X+INT(A/3));"   ";
51 PRINT#4,F$(X+2*INT(A/3))
52 NEXT:GOTO 54
53 PRINT#4,MID$(CC$,28,16)
54 CLOSE4:S=54272:POKES+24,15:POKES+4,129:POKES+5,9:POKES+6,255:POKES+1,8:POKES+4,128
55 PRINTCHR$(30)CHR$(14)CHR$(147):FORD=1TO25:NEXT:POKES+4,0:GOTO9